home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Libris Britannia 4
/
science library(b).zip
/
science library(b)
/
MEDICAL
/
H121A.ZIP
/
FILES6.EXE
/
lha
/
EUROPE.CHK
< prev
next >
Wrap
Text File
|
1991-07-15
|
2KB
|
128 lines
*******************************************************************************
*EUROPE.CHK *
*Check file to demonstrate the use of nutrition anthropometry within Epi Info*
* version 5. Note that this file will not work with earlier versions of Epi *
* Info. Remember, to use the example program distributed with Epi Info, you *
* must enter "EUROPE" at the DOS prompt, not from the Epi Info menu. *
******************************************************************************
******************************************************************************
*Special note: If you are going to add fields to the REC file, you will *
* want to remove the GOTO WRITEREC that appears in 3 lines and jump to the *
* first added field in the .CHK file. For more information on how to modify *
* the Check file, please refer to the appropriate chapters in the Epi Info *
* version 5 documentation *
******************************************************************************
NAME
UPDATE OFF
COLOR QUESTION 31
COLOR DATA 112
COLOR BACKGROUND 1
SET ALL FIELDCHAR " "
UPDATE
ENTER
AutoJump SEX
END
SEX
Legal
M
1
F
2
END
AutoJump AGE
END
AGE
Range 0 +inf
AutoJump YRS
END
BIRTHDATE
AutoJump VISITDATE
IF birthdate = .
THEN
GOTO WEIGHT
ENDIF
END
YRS
Range 0 +inf
AutoJump BIRTHDATE
IF YRS = .
THEN
GOTO BIRTHDATE
ELSE
IF AGE = . OR AGE = 0
THEN
AGE = 0
ENDIF
LET AGE = AGE + (YRS*12)
LET YRS = 0
ENDIF
END
VISITDATE
IF visitDATE = .
THEN
GOTO WEIGHT
ELSE
LET AGE = (VISITDATE - BIRTHDATE) /30.44
ENDIF
END
WEIGHT
Range 0 +inf
END
HAP
NoEnter
END
HAZ
NoEnter
END
HAM
NoEnter
END
HEIGHT
Range 0 +inf
LOAD ENTFACE.BIN
CALL ENTFACE 75
UPDATE
GOTO WRITEREC
END
WAP
NoEnter
END
WAZ
NoEnter
END
WAM
NoEnter
END
WHP
NoEnter
END
WHZ
NoEnter
END
WHM
NoEnter
AutoJump NAME
END
FLAG
NoEnter
END